home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / SANFRAN.CMD < prev    next >
OS/2 REXX Batch file  |  1987-12-27  |  4KB  |  216 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S1"SAN FRANCISCO, CA [415]"
  4. BEGIN:
  5. CLEA
  6. LOCA 2,0
  7. MESS"                         ╔══╡SAN FRANCISCO NUMBERS╞══╗"
  8. MESS"                         ║                           ║"
  9. MESS"                         ║  A - Charsima             ║"
  10. MESS"                         ║  B - Log On Unlimited     ║"
  11. MESS"                         ║  C - COMM 1               ║"
  12. MESS"                         ║  D - Palladin             ║"
  13. MESS"                         ║  E - Transfer Station     ║"
  14. MESS"                         ║  F - Insite               ║"
  15. MESS"                         ║  G - PC Magazine IRS      ║"
  16. MESS"                         ║  H - PCCUG BBS            ║"
  17. MESS"                         ║  I - Technet #1           ║"
  18. MESS"                         ║  J - Technet #2           ║"
  19. MESS"                         ║  K - Vern Berg's VOR      ║"
  20. MESS"                         ║  L -                      ║"
  21. MESS"                         ║  M - Manual Dial          ║"
  22. MESS"                         ║  Q - Return to MAIN menu  ║"
  23. MESS"                         ║                           ║"
  24. MESS"                         ╠═══════════════════════════╣"
  25. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  26. MESS"                         ║                           ║"
  27. MESS"                         ╚═══════════════════════════╝"
  28. LOCA 21,27
  29. GET S0
  30. TOP:
  31. FIND S0"A"
  32. IF FOUN
  33. ASSI S6"Charisma"
  34. ASSI S8"3496576"
  35. GOSU REDIALER
  36. ELSE
  37. ENDI
  38. FIND S0"B"
  39. IF FOUN
  40. ASSI S6"Log On Unlimited"
  41. ASSI S8"2849151"
  42. GOSU REDIALER
  43. ELSE
  44. ENDI
  45. FIND S0"C"
  46. IF FOUN
  47. ASSI S6"Com 1"
  48. ASSI S8"3700411"
  49. GOSU REDIALER
  50. ELSE
  51. ENDI
  52. FIND S0"D"
  53. IF FOUN
  54. ASSI S6"Palladin"
  55. ASSI S8"3321655"
  56. GOSU REDIALER
  57. ELSE
  58. ENDI
  59. FIND S0"E"
  60. IF FOUN
  61. ASSI S6"Transfer Station"
  62. ASSI S8"8374610"
  63. GOSU REDIALER
  64. ELSE
  65. ENDI
  66. FIND S0"F"
  67. IF FOUN
  68. ASSI S6"Insite"
  69. ASSI S8"2290551"
  70. GOSU REDIALER
  71. ELSE
  72. ENDI
  73. FIND S0"G"
  74. IF FOUN
  75. ASSI S6"PC Magazine's IRS"
  76. ASSI S8"5989100"
  77. GOSU REDIALER
  78. ELSE
  79. ENDI
  80. FIND S0"H"
  81. IF FOUN
  82. ASSI S6"PCCUG BBS"
  83. ASSI S8"5529070"
  84. GOSU REDIALER
  85. ELSE
  86. ENDI
  87. FIND S0"I"
  88. IF FOUN
  89. ASSI S6"Technet #1"
  90. ASSI S8"5743663"
  91. GOSU REDIALER
  92. ELSE
  93. ENDI
  94. FIND S0"J"
  95. IF FOUN
  96. ASSI S6"Technet #2"
  97. ASSI S8"5955079"
  98. GOSU REDIALER
  99. ELSE
  100. ENDI
  101. FIND S0"K"
  102. IF FOUN
  103. ASSI S6"Vern Buerg's VOR"
  104. ASSI S8"9942944"
  105. GOSU REDIALER
  106. ELSE
  107. ENDI
  108. FIND S0"L"
  109. IF FOUN
  110. ASSI S6"     "
  111. ASSI S8"       "
  112. GOSU REDIALER
  113. ELSE
  114. ENDI
  115. FIND S0"M"
  116. IF FOUN
  117. CLEA
  118. LOCA 5,20
  119. MESS"NUMBER TO DIAL:"
  120. LOCA 5,36
  121. ASSI S6"MANUAL DIAL"
  122. GET S8
  123. GOSU REDIALER
  124. ELSE
  125. ENDI
  126. FIND S0"Q"
  127. IF FOUN
  128. CLEA
  129. TRAN"!@!"
  130. WAIT"@"
  131. TRAN"D!"
  132. WAIT"@"
  133. CLEA
  134. LOCA 1,0
  135. PAUS 1
  136. EXEC"SELCITY.CMD"
  137. ELSE
  138. ENDI
  139. FIND S7"MORE"
  140. IF FOUN
  141. ASSI S7"    "
  142. GOTO TOP
  143. ELSE
  144. ENDI
  145. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  146. MESS"RETURNING TO MAIN MENU"
  147. ALAR
  148. ASSI S0"Q"
  149. GOTO TOP
  150. REDIALER:
  151. CLEA
  152. ISFI S6
  153. IF NOT SUCC
  154. LOCA 5, 35
  155. MESS"DIALING"
  156. MESS" "
  157. MESS S6
  158. MESS S8
  159. TRAN"I!"
  160. PAUS 1
  161. TRAN"ATZ!"
  162. WAIT"OK"
  163. TRAN"^E!"
  164. WAIT"READY"
  165. TRAN"D"
  166. TRAN S8
  167. TRAN"!"
  168. RGET S9
  169. RGET S9 80 40
  170. RGET S9 40 40
  171. RGET S9 40 40
  172. GOTMESS:
  173. FIND S9"BUSY"
  174. IF FOUN
  175. MESS S6
  176. MESS S8
  177. MESS"BUSY; GOING TO NEXT NUMBER"
  178. MESS"*************************************************************"
  179. ASSI S7"MORE"
  180. GOTO RTRN
  181. ENDI
  182. FIND S9"ANSWER TONE"
  183. IF FOUN
  184. SET PARI NONE
  185. SET DATA 8
  186. CLEA
  187. MESS"CONNECTED TO"
  188. MESS S8
  189. MESS S6
  190. MESS S1
  191. ALAR
  192. EXIT
  193. ELSE
  194. FIND S9"RINGING"
  195. IF FOUN
  196. RGET S9
  197. FIND S9"RINGING"
  198. IF FOUN
  199. LOG OPEN S6
  200. MESS"NO ANSWER - STILL RINGING"
  201. MESS S8
  202. MESS S6
  203. MESS S1
  204. LOG CLOSE
  205. TRAN"^C^D^C"
  206. MESS"***************************************************************"
  207. GOTO RTRN
  208. ELSE
  209. GOTO GOTMESS
  210. ENDI
  211. ENDI
  212. ENDI
  213. ENDI
  214. RTRN:
  215. RETURN
  216.